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Select SCLAUSE, JTYPE, SFLDSEQ FROM UnitStatTab WHERE SCLAUSE is 

NOT NULL ORDER BY SFLDSEQ 

i = l 

While not end of resultset 
{ 

// Get values from next row of resultset 

SCIauseti] = GetString [1] // get SCLAUSE 

SJType[i] = GetString [2] // get JTYPE 551 

SFIdSeqti] = Getlnt [3] //get SFIdSeq 

i + + 

} 

Ssize = i~: 
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Select GCLAUSE, SFLDSEQ FROM UnitStatTab WHERE GCLAUSE is 

NOT NULL ORDER BY SFLDSEQ 

i = l 

While not end of resultset 
{ 

// Get values from next row of resultset 

GCIauseti] = GetString [i] // get GCLAUSE ^ 55; 

i + + 

} 

Gsize = i-: 
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SELECT UCLAUSE, JTYPE, SFLDSEQ, TFLDSEQ FROM UnitStatTab WHERE 

UCLAUSE is NOT NULL ORDER BY TFLDSEQ 

i = l 

While not end of resultset 
{ 

// Get values from next row of resultset 

UCIause[i] = GetString [1] // get UCLAUSE 

UJTypeti] = GetString [2] // get JTYPE 566 

USFIdSeqti] = Getlnt [3] // get SFIdSeq 

UFIdseqti] = i // reset sequence 

i+ + 

} 

Usize = i— : 

FIG. 5C1 
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SELECT WCLAUSE, SFLDSEQ, TFLDSEQ FROM UnitStatTab WHERE 

WCLAUSE is NOT NULL ORDER BY TFLDSEQ 

i = l 

While not end of resultset 
{ 

// Get values from next row of resultset 
WCIauseti] = GetString [1] 
WJTypeti] = GetString [2] 
WSFIdSeqti] = Getlnt [3] 
WFIdseqti] = Usize + i 
i + + 
} 

Wsize = i— : 
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SELECT ICLAUSE, JTYPE, SFLDSEQ, TFLDSEQ FROM UnitStatTab WHERE 

ICLAUSE is NOT NULL ORDER BY TFLDSEQ 

i = l 

While not end of resultset 
{ 

// Get values from next row of resultset 
ICIauseD] = GetString [1] // get ICLAUSE 

IJTypeti] = GetString [2] // get JTYPE ^ 581 

ISFIdSeqti] = Getlnt [3] //get SFIdSeq 

IFIdseqti] = i // reset sequence 

i+ + 
} 

Isize = i— : 

FIG. 5D1 
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^•550 

'SELECT Complex, Unit, Sum(Calls), Sum(WrkTime) FROM OperStat 

GROUP BY Complex, Unit 1 



For i = l to Ssize 
{ 

j=SFIdSeq[i] 
if SJType[i] = 'String l 
StringRS[j]=GetString[i] 

else 

lntRS[j]=Getint[i] 

} 
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'UPDATE UnitStat SET Calls=? f WrkTime=?, CumCalls=CumCalls+? ) 

Ul U2 U3 

CumWrkTime=CumWrkTime+? 

U4 

WHERE Complex=? AND Unit=?' 
U5 U6 



For i = 1 to Usize 
{ 

j = UFIdSeq[i] 
k=USFIdSeq[i] 
if UJType[i]='String l 

setString[j]=StringRS[k] 
gIsg 

setint[j] = lntRS[k] 

} 
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if WJTypeti] ^String' 
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else 
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INSERT INTO UnitStat(Complex, Unit, Calls, WrkTime, CumCalls, 
CumWrkTime) VALUES (?,?,?,?,?,?)' 

11,12,13,14,15,16 

For i = l to Isize 
{ 

j = IFIdSeq[i] 
k=ISFIdSeq[i] 
if IJType[i]= , String' 
setString[j]=StringRS[k] 
gIsg 

setint[j] = lntRS[k] 

} 
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